/* GUI CONVERTED from rcordfrm.i (converter v1.76) Mon Jun 10 11:10:09 2002 */
/* rcordfrm.i - Release Management Customer Schedules                         */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                        */
/* All rights reserved worldwide.  This is an unpublished work.               */
/* $Revision: 1.29 $                                                          */
/*V8:ConvertMode=ReportAndMaintenance                                         */
/* REVISION: 7.3    LAST MODIFIED: 09/30/92           BY: WUG *G462*          */
/* REVISION: 7.3    LAST MODIFIED: 05/24/93           BY: WUG *GB29*          */
/* REVISION: 7.3    LAST MODIFIED: 06/11/93           BY: WUG *GB74*          */
/* REVISION: 7.3    LAST MODIFIED: 07/26/93           BY: WUG *GA72*          */
/* REVISION: 7.4    LAST MODIFIED: 08/12/93           BY: bcm *H064*          */
/* REVISION: 7.4    LAST MODIFIED: 09/21/93           BY: WUG *H130*          */
/* REVISION: 7.4    LAST MODIFIED: 09/21/93           BY: WUG *H140*          */
/* REVISION: 7.4    LAST MODIFIED: 09/28/93           BY: WUG *H141*          */
/* REVISION: 7.4    LAST MODIFIED: 12/23/93           BY: WUG *GI32*          */
/* REVISION: 7.4    LAST MODIFIED: 10/31/94           BY: rxm *GN17*          */
/* REVISION: 7.4    LAST MODIFIED: 11/01/94           BY: mmp *H579*          */
/* REVISION: 7.4    LAST MODIFIED: 11/30/94           BY: mmp *H575*          */
/* REVISION: 7.4    LAST MODIFIED: 03/22/95           BY: aed *G0J0*          */
/* REVISION: 7.4    LAST MODIFIED: 08/15/95           BY: bcm *G0TB*          */
/* REVISION: 7.4    LAST MODIFIED: 10/22/95           BY: vrn *G0YL*          */
/* REVISION: 8.5    LAST MODIFIED: 10/25/95           BY: dpm *J044*          */
/* REVISION: 7.4    LAST MODIFIED: 07/07/95           BY: gwm *J049*          */
/* REVISION: 8.6    LAST MODIFIED: 09/20/96           BY: TSI *K005*          */
/* REVISION: 8.6    LAST MODIFIED: 03/28/97   BY: *G2LS* Jim Williams         */
/* REVISION: 8.6    LAST MODIFIED: 04/30/97   BY: *K0CT* Kieu Nguyen          */
/* REVISION: 8.6    LAST MODIFIED: 06/03/97   BY: *K0DQ* Taek-Soo Chang       */
/* REVISION: 8.6    LAST MODIFIED: 10/15/97   BY: *J233* Aruna Patil          */
/* REVISION: 8.6E   LAST MODIFIED: 02/23/98   BY: *L007* A. Rahane            */
/* REVISION: 8.6E   LAST MODIFIED: 10/04/98   BY: *J314* Alfred Tan           */
/* REVISION: 9.0    LAST MODIFIED: 02/06/99   BY: *M06R* Doug Norton          */
/* REVISION: 9.0    LAST MODIFIED: 03/13/99   BY: *M0BD* Alfred Tan           */
/* REVISION: 9.0    LAST MODIFIED: 03/24/99   BY: *K200* Poonam Bahl          */
/* REVISION: 9.1    LAST MODIFIED: 09/04/99   BY: *K22J* Ranjit Jain          */
/* REVISION: 9.1    LAST MODIFIED: 10/01/99   BY: *N014* Robin McCarthy       */
/* REVISION: 9.1    LAST MODIFIED: 07/02/99   BY: *N004* Patrick Rowan        */
/* REVISION: 9.1    LAST MODIFIED: 03/24/00   BY: *N08T* Annasaheb Rahane     */
/* REVISION: 9.1    LAST MODIFIED: 04/11/00   BY: *J3PK* Reetu Kapoor         */
/* REVISION: 9.1    LAST MODIFIED: 06/06/00   BY: *N0CX* Jean Miller          */
/* REVISION: 9.1    LAST MODIFIED: 08/12/00   BY: *N0KP* Mark Brown           */
/* Old ECO marker removed, but no ECO header exists *F0PN*                    */
/* Revision: 1.23     BY: Jean Miller        DATE: 03/22/01  ECO: *P008*      */
/* Revision: 1.24     BY: Ellen Borden       DATE: 07/09/01  ECO: *P007*      */
/* Revision: 1.25     BY: Rajiv Ramaiah      DATE: 07/20/01  ECO: *M1FM*      */
/* Revision: 1.26     BY: Steve Nugent       DATE: 10/15/01  ECO: *P004*      */
/* Revision: 1.27     BY: Patrick Rowan      DATE: 01/08/01  ECO: *P00G*      */
/* Revision: 1.28     BY: Katie Hilbert      DATE: 04/15/02  ECO: *P03J*      */
/* $Revision: 1.29 $    BY: Katie Hilbert      DATE: 06/10/02  ECO: *P083*  */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

/* SCHEDULED ORDER MAINTENANCE/INQ/RPT FRAME */

define variable sod_psd_pat  like sch_sd_pat  label "Plan SDP Code".
define variable sod_psd_time like sch_sd_time label "Plan SDT Code".
define variable sod_ssd_pat  like sch_sd_pat  label "Ship SDP Code".
define variable sod_ssd_time like sch_sd_time label "Ship SDT Code".
define variable socmmts      like soc_hcmmts  label "Comments".
define variable sodcmmts     like soc_lcmmts  label "Comments".

define variable so_auto_inv     like mfc_logical label "Auto Inv Post".
define variable so_wk_offset    like ad_wk_offset.
define variable so_translt_days like sod_translt_days.
define variable so_translt_hrs  like sod_translt_hrs.
define variable so_cumulative   like mfc_logical label "Cumulative".
define variable print_ih        like mfc_logical label "Print Inv Hist".
define variable edi_ih          like mfc_logical label "EDI Inv Hist".
define variable seq_order       like mfc_logical initial false no-undo.
define variable line_no         as character no-undo.
define variable addcharge       like rsn_desc no-undo format "x(15)".

if no then find first scx_ref.

FORM /*GUI*/ 
   

&IF ("{&PP_GUI_CONVERT_MODE}" <> "REPORT") OR
(("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" = "A")) &THEN
 RECT-FRAME       AT ROW 1 COLUMN 1.25
 RECT-FRAME-LABEL AT ROW 1 COLUMN 3 NO-LABEL VIEW-AS TEXT SIZE-PIXELS 1 BY 1
 SKIP(.1)  /*GUI*/
&ENDIF /*GUI*/
scx_shipfrom         colon 11 label "Ship-From"
   scx_order            at 37
   scx_shipto           colon 11 label "Ship-To"
   ad_name              at 37 no-label


&IF ("{&PP_GUI_CONVERT_MODE}" <> "REPORT") OR
(("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" = "A")) &THEN
 SKIP(.4)  /*GUI*/
&ENDIF /*GUI*/
with frame so width 80 attr-space side-labels
&IF ("{&PP_GUI_CONVERT_MODE}" = "REPORT") &THEN
 STREAM-IO /*GUI*/ 
&ENDIF /*GUI*/

&IF ("{&PP_GUI_CONVERT_MODE}" <> "REPORT") OR
(("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" = "A")) &THEN
 NO-BOX THREE-D /*GUI*/
&ENDIF /*GUI*/
.


&IF ("{&PP_GUI_CONVERT_MODE}" <> "REPORT") OR
(("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" = "A")) &THEN
 DEFINE VARIABLE F-so-title AS CHARACTER INITIAL "".
 RECT-FRAME-LABEL:SCREEN-VALUE in frame so = F-so-title.
 RECT-FRAME-LABEL:HIDDEN in frame so = yes.
 RECT-FRAME:HEIGHT-PIXELS in frame so =
  FRAME so:HEIGHT-PIXELS - RECT-FRAME:Y in frame so - 2.
 RECT-FRAME:WIDTH-CHARS IN FRAME so = FRAME so:WIDTH-CHARS - .5.  /*GUI*/
&ENDIF /*GUI*/


/* SET EXTERNAL LABELS */
setFrameLabels(frame so:handle).

FORM /*GUI*/ 
   

&IF ("{&PP_GUI_CONVERT_MODE}" <> "REPORT") OR
(("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" = "A")) &THEN
 RECT-FRAME       AT ROW 1.4 COLUMN 1.25
 RECT-FRAME-LABEL AT ROW 1   COLUMN 3 NO-LABEL
 SKIP(.1)  /*GUI*/
&ENDIF /*GUI*/
so_ar_acct           colon 18
   so_ar_sub            no-label
   so_ar_cc             no-label
   so_shipvia           colon 56
   so_taxable           colon 18
   so_taxc              no-label
   so_fob               colon 56
   so_wk_offset         colon 18
   so_translt_days      colon 56
   so_incl_iss          colon 18 label "Include Sat/Sun"
   so_custref_val       colon 56
   so_cumulative        colon 18
   print_ih             colon 56
   so_consignment       colon 18
   edi_ih               colon 56
   so_bill              colon 18
   so_print_pl          colon 56
   so_auto_inv          colon 18
   socmmts              colon 56
   impexp               colon 18 label "Imp/Exp"
   so_site              colon 56 label "AR Site"
   so_seq_order         colon 18
   so_channel           colon 56
   so_bump_all          colon 18 label "Dynamic UnPeg"
   so_cum_acct          colon 56 label "Ship to Cum/Req"
   so_userid            colon 18 label "Entered By"
   so_curr              colon 56
   so_rmks              colon 18


&IF ("{&PP_GUI_CONVERT_MODE}" <> "REPORT") OR
(("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" = "A")) &THEN
 SKIP(.4)  /*GUI*/
&ENDIF /*GUI*/
with frame so1 width 80 attr-space side-labels

&IF (("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" <> "A")) &THEN
title color normal (getFrameTitle("ORDER_DATA",16))
&ENDIF /*GUI*/

&IF ("{&PP_GUI_CONVERT_MODE}" = "REPORT") &THEN
 STREAM-IO /*GUI*/ 
&ENDIF /*GUI*/

&IF ("{&PP_GUI_CONVERT_MODE}" <> "REPORT") OR
(("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" = "A")) &THEN
 NO-BOX THREE-D /*GUI*/
&ENDIF /*GUI*/
.


&IF ("{&PP_GUI_CONVERT_MODE}" <> "REPORT") OR
(("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" = "A")) &THEN
 DEFINE VARIABLE F-so1-title AS CHARACTER.
 F-so1-title = (getFrameTitle("ORDER_DATA",16)).
 RECT-FRAME-LABEL:SCREEN-VALUE in frame so1 = F-so1-title.
 RECT-FRAME-LABEL:WIDTH-PIXELS in frame so1 =
  FONT-TABLE:GET-TEXT-WIDTH-PIXELS(
  RECT-FRAME-LABEL:SCREEN-VALUE in frame so1 + " ", RECT-FRAME-LABEL:FONT).
 RECT-FRAME:HEIGHT-PIXELS in frame so1 =
  FRAME so1:HEIGHT-PIXELS - RECT-FRAME:Y in frame so1 - 2.
 RECT-FRAME:WIDTH-CHARS IN FRAME so1 = FRAME so1:WIDTH-CHARS - .5. /*GUI*/
&ENDIF /*GUI*/


/* SET EXTERNAL LABELS */
setFrameLabels(frame so1:handle).

/* Non-Cumulative Quantity Accounting Form */
FORM /*GUI*/ 
   

&IF ("{&PP_GUI_CONVERT_MODE}" <> "REPORT") OR
(("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" = "A")) &THEN
 RECT-FRAME       AT ROW 1.4 COLUMN 1.25
 RECT-FRAME-LABEL AT ROW 1   COLUMN 3 NO-LABEL
 SKIP(.1)  /*GUI*/
&ENDIF /*GUI*/
so_ship_cmplt        colon 15
   so_auth_days         colon 50
   so_merge_rss         colon 15
   so__qadl02           colon 50


&IF ("{&PP_GUI_CONVERT_MODE}" <> "REPORT") OR
(("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" = "A")) &THEN
 SKIP(.4)  /*GUI*/
&ENDIF /*GUI*/
with frame so2 width 80 attr-space side-labels

&IF (("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" <> "A")) &THEN
title color normal (getFrameTitle("NON_CUM_QUANTITY_ACCOUNTING_DATA",54))
&ENDIF /*GUI*/

&IF ("{&PP_GUI_CONVERT_MODE}" = "REPORT") &THEN
 STREAM-IO /*GUI*/ 
&ENDIF /*GUI*/

&IF ("{&PP_GUI_CONVERT_MODE}" <> "REPORT") OR
(("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" = "A")) &THEN
 NO-BOX THREE-D /*GUI*/
&ENDIF /*GUI*/
.


&IF ("{&PP_GUI_CONVERT_MODE}" <> "REPORT") OR
(("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" = "A")) &THEN
 DEFINE VARIABLE F-so2-title AS CHARACTER.
 F-so2-title = (getFrameTitle("NON_CUM_QUANTITY_ACCOUNTING_DATA",54)).
 RECT-FRAME-LABEL:SCREEN-VALUE in frame so2 = F-so2-title.
 RECT-FRAME-LABEL:WIDTH-PIXELS in frame so2 =
  FONT-TABLE:GET-TEXT-WIDTH-PIXELS(
  RECT-FRAME-LABEL:SCREEN-VALUE in frame so2 + " ", RECT-FRAME-LABEL:FONT).
 RECT-FRAME:HEIGHT-PIXELS in frame so2 =
  FRAME so2:HEIGHT-PIXELS - RECT-FRAME:Y in frame so2 - 2.
 RECT-FRAME:WIDTH-CHARS IN FRAME so2 = FRAME so2:WIDTH-CHARS - .5. /*GUI*/
&ENDIF /*GUI*/


/* SET EXTERNAL LABELS */
setFrameLabels(frame so2:handle).

FORM /*GUI*/ 
   

&IF ("{&PP_GUI_CONVERT_MODE}" <> "REPORT") OR
(("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" = "A")) &THEN
 RECT-FRAME       AT ROW 1 COLUMN 1.25
 RECT-FRAME-LABEL AT ROW 1 COLUMN 3 NO-LABEL VIEW-AS TEXT SIZE-PIXELS 1 BY 1
 SKIP(.1)  /*GUI*/
&ENDIF /*GUI*/
scx_part             colon 15 label "Item"
   sod_desc             at 37 no-label
   pt_um                colon 72
   scx_po               colon 15 label "PO Number" format "x(22)"
   scx_custref          colon 15
   sod_custpart         at 49 no-label format "x(28)"
   scx_modelyr          colon 15
   scx_line             colon 72


&IF ("{&PP_GUI_CONVERT_MODE}" <> "REPORT") OR
(("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" = "A")) &THEN
 SKIP(.4)  /*GUI*/
&ENDIF /*GUI*/
with frame sod width 80 attr-space side-labels
&IF ("{&PP_GUI_CONVERT_MODE}" = "REPORT") &THEN
 STREAM-IO /*GUI*/ 
&ENDIF /*GUI*/

&IF ("{&PP_GUI_CONVERT_MODE}" <> "REPORT") OR
(("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" = "A")) &THEN
 NO-BOX THREE-D /*GUI*/
&ENDIF /*GUI*/
.


&IF ("{&PP_GUI_CONVERT_MODE}" <> "REPORT") OR
(("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" = "A")) &THEN
 DEFINE VARIABLE F-sod-title AS CHARACTER INITIAL "".
 RECT-FRAME-LABEL:SCREEN-VALUE in frame sod = F-sod-title.
 RECT-FRAME-LABEL:HIDDEN in frame sod = yes.
 RECT-FRAME:HEIGHT-PIXELS in frame sod =
  FRAME sod:HEIGHT-PIXELS - RECT-FRAME:Y in frame sod - 2.
 RECT-FRAME:WIDTH-CHARS IN FRAME sod = FRAME sod:WIDTH-CHARS - .5.  /*GUI*/
&ENDIF /*GUI*/


/* SET EXTERNAL LABELS */
setFrameLabels(frame sod:handle).

/* ADDED FIELD SOD_LIST_PR AND CHANGED THE ORDER OF DISPLAY */
FORM /*GUI*/ 
   

&IF ("{&PP_GUI_CONVERT_MODE}" <> "REPORT") OR
(("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" = "A")) &THEN
 RECT-FRAME       AT ROW 1.4 COLUMN 1.25
 RECT-FRAME-LABEL AT ROW 1   COLUMN 3 NO-LABEL
 SKIP(.1)  /*GUI*/
&ENDIF /*GUI*/
sod_pr_list          colon 15 label "Disc Tbl"
   sod_consume          colon 60
   sod_list_pr          colon 15 label "List Price"
   sod_type             colon 60 label "Type"
   sod_price            colon 15 label "Net Price"
   sod_loc              colon 60
   sod_acct             colon 15
   sod_sub              no-label
   sod_cc               no-label
   sod_taxable          colon 60
   sod_taxc             no-label
   sod_dsc_acct         colon 15
   sod_dsc_sub          no-label
   sod_dsc_cc           no-label
   sod_order_category   colon 60
   sod_consignment      colon 60


&IF ("{&PP_GUI_CONVERT_MODE}" <> "REPORT") OR
(("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" = "A")) &THEN
 SKIP(.4)  /*GUI*/
&ENDIF /*GUI*/
with frame sod1 width 80 attr-space side-labels

&IF (("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" <> "A")) &THEN
title color normal (getFrameTitle("ORDER_LINE_ITEM_DATA",29))
&ENDIF /*GUI*/

&IF ("{&PP_GUI_CONVERT_MODE}" = "REPORT") &THEN
 STREAM-IO /*GUI*/ 
&ENDIF /*GUI*/

&IF ("{&PP_GUI_CONVERT_MODE}" <> "REPORT") OR
(("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" = "A")) &THEN
 NO-BOX THREE-D /*GUI*/
&ENDIF /*GUI*/
.


&IF ("{&PP_GUI_CONVERT_MODE}" <> "REPORT") OR
(("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" = "A")) &THEN
 DEFINE VARIABLE F-sod1-title AS CHARACTER.
 F-sod1-title = (getFrameTitle("ORDER_LINE_ITEM_DATA",29)).
 RECT-FRAME-LABEL:SCREEN-VALUE in frame sod1 = F-sod1-title.
 RECT-FRAME-LABEL:WIDTH-PIXELS in frame sod1 =
  FONT-TABLE:GET-TEXT-WIDTH-PIXELS(
  RECT-FRAME-LABEL:SCREEN-VALUE in frame sod1 + " ", RECT-FRAME-LABEL:FONT).
 RECT-FRAME:HEIGHT-PIXELS in frame sod1 =
  FRAME sod1:HEIGHT-PIXELS - RECT-FRAME:Y in frame sod1 - 2.
 RECT-FRAME:WIDTH-CHARS IN FRAME sod1 = FRAME sod1:WIDTH-CHARS - .5. /*GUI*/
&ENDIF /*GUI*/


/* SET EXTERNAL LABELS */
setFrameLabels(frame sod1:handle).

FORM /*GUI*/ 
   

&IF ("{&PP_GUI_CONVERT_MODE}" <> "REPORT") OR
(("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" = "A")) &THEN
 RECT-FRAME       AT ROW 1.4 COLUMN 1.25
 RECT-FRAME-LABEL AT ROW 1   COLUMN 3 NO-LABEL
 SKIP(.1)  /*GUI*/
&ENDIF /*GUI*/
sod_rbkt_days        colon 18 label "Req Sched Days"
   sod_dock             colon 39
   sod_psd_pat          colon 71
   sod_rbkt_weeks       colon 18 label "Req Sched Weeks"
   sod_start_eff[1]     colon 39 label "Start Effective"
   sod_psd_time         colon 71
   sod_rbkt_mths        colon 18 label "Req Sched Months"
   sod_end_eff[1]       colon 39 label "End Effective"
   sod_ssd_pat          colon 71
   sod_fab_days         colon 18
   sod_cum_qty[3]       colon 39 label "Max Order Qty"
   sod_ssd_time         colon 71
   sod_raw_days         colon 18
   sod_ord_mult         colon 39
   sod_conrep           colon 71
   sod_custpart         colon 18
   sod_cum_date[1]      colon 68 label "Cum Start" no-attr-space
   sod_pkg_code         colon 18 label "Container Item"
   sod_alt_pkg                   label "Alternates"
   sodcmmts             colon 68
   sod_charge_type      colon 18


&IF ("{&PP_GUI_CONVERT_MODE}" <> "REPORT") OR
(("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" = "A")) &THEN
 SKIP(.4)  /*GUI*/
&ENDIF /*GUI*/
with frame sod2 width 80 side-labels attr-space

&IF (("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" <> "A")) &THEN
title color normal (getFrameTitle("ORDER_LINE_ITEM_DATA",29))
&ENDIF /*GUI*/

&IF ("{&PP_GUI_CONVERT_MODE}" = "REPORT") &THEN
 STREAM-IO /*GUI*/ 
&ENDIF /*GUI*/

&IF ("{&PP_GUI_CONVERT_MODE}" <> "REPORT") OR
(("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" = "A")) &THEN
 NO-BOX THREE-D /*GUI*/
&ENDIF /*GUI*/
.


&IF ("{&PP_GUI_CONVERT_MODE}" <> "REPORT") OR
(("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" = "A")) &THEN
 DEFINE VARIABLE F-sod2-title AS CHARACTER.
 F-sod2-title = (getFrameTitle("ORDER_LINE_ITEM_DATA",29)).
 RECT-FRAME-LABEL:SCREEN-VALUE in frame sod2 = F-sod2-title.
 RECT-FRAME-LABEL:WIDTH-PIXELS in frame sod2 =
  FONT-TABLE:GET-TEXT-WIDTH-PIXELS(
  RECT-FRAME-LABEL:SCREEN-VALUE in frame sod2 + " ", RECT-FRAME-LABEL:FONT).
 RECT-FRAME:HEIGHT-PIXELS in frame sod2 =
  FRAME sod2:HEIGHT-PIXELS - RECT-FRAME:Y in frame sod2 - 2.
 RECT-FRAME:WIDTH-CHARS IN FRAME sod2 = FRAME sod2:WIDTH-CHARS - .5. /*GUI*/
&ENDIF /*GUI*/


/* SET EXTERNAL LABELS */
setFrameLabels(frame sod2:handle).

FORM /*GUI*/ 
   

&IF ("{&PP_GUI_CONVERT_MODE}" <> "REPORT") OR
(("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" = "A")) &THEN
 RECT-FRAME       AT ROW 1.4 COLUMN 1.25
 RECT-FRAME-LABEL AT ROW 1   COLUMN 3 NO-LABEL
 SKIP(.1)  /*GUI*/
&ENDIF /*GUI*/
so_inc_in_rss        colon 35
   so_firm_seq_days     colon 65


&IF ("{&PP_GUI_CONVERT_MODE}" <> "REPORT") OR
(("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" = "A")) &THEN
 SKIP(.4)  /*GUI*/
&ENDIF /*GUI*/
with frame so3 width 80 side-labels attr-space

&IF (("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" <> "A")) &THEN
title color normal (getFrameTitle("SEQUENCED_DELIVERY_DATA",33))
&ENDIF /*GUI*/

&IF ("{&PP_GUI_CONVERT_MODE}" = "REPORT") &THEN
 STREAM-IO /*GUI*/ 
&ENDIF /*GUI*/

&IF ("{&PP_GUI_CONVERT_MODE}" <> "REPORT") OR
(("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" = "A")) &THEN
 NO-BOX THREE-D /*GUI*/
&ENDIF /*GUI*/
.


&IF ("{&PP_GUI_CONVERT_MODE}" <> "REPORT") OR
(("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" = "A")) &THEN
 DEFINE VARIABLE F-so3-title AS CHARACTER.
 F-so3-title = (getFrameTitle("SEQUENCED_DELIVERY_DATA",33)).
 RECT-FRAME-LABEL:SCREEN-VALUE in frame so3 = F-so3-title.
 RECT-FRAME-LABEL:WIDTH-PIXELS in frame so3 =
  FONT-TABLE:GET-TEXT-WIDTH-PIXELS(
  RECT-FRAME-LABEL:SCREEN-VALUE in frame so3 + " ", RECT-FRAME-LABEL:FONT).
 RECT-FRAME:HEIGHT-PIXELS in frame so3 =
  FRAME so3:HEIGHT-PIXELS - RECT-FRAME:Y in frame so3 - 2.
 RECT-FRAME:WIDTH-CHARS IN FRAME so3 = FRAME so3:WIDTH-CHARS - .5. /*GUI*/
&ENDIF /*GUI*/


/* SET EXTERNAL LABELS */
setFrameLabels(frame so3:handle).

FORM /*GUI*/ 
   line_no              at 7      no-label format "x(3)"
   act_cont_part        at 12 column-label "Alternate Container"
   act_ord_mult         at 35 column-label "Std Pack Qty"
   act_charge_type      at 55 column-label "Charge Type"
with frame alt-clc2 down width 80 attr-space
title color normal (getFrameTitle("ALTERNATE_CONTAINERS",33))
&IF ("{&PP_GUI_CONVERT_MODE}" = "REPORT") &THEN
 STREAM-IO /*GUI*/ 
&ENDIF /*GUI*/

&IF ("{&PP_GUI_CONVERT_MODE}" <> "REPORT") OR
(("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" = "A")) &THEN
 THREE-D /*GUI*/
&ENDIF /*GUI*/
.


/* SET EXTERNAL LABELS */
setFrameLabels(frame alt-clc2:handle).

FORM /*GUI*/ 
   sodlc_lc_line        at 1
   addcharge            at 6  column-label "Additional!Charges"
   sodlc_trl_code       at 25
   sodlc_lc_amt         at 30
   sodlc_one_time       at 47
   sodlc_charge_type    at 52 column-label "Charge!Type"
   sodlc_ref            at 62 format "x(15)"
with frame linecharge down width 80 attr-space
title color normal (getFrameTitle("LINE_CHARGES",33))
&IF ("{&PP_GUI_CONVERT_MODE}" = "REPORT") &THEN
 STREAM-IO /*GUI*/ 
&ENDIF /*GUI*/

&IF ("{&PP_GUI_CONVERT_MODE}" <> "REPORT") OR
(("{&PP_GUI_CONVERT_MODE}" = "REPORT") AND
("{&PP_FRAME_NAME}" = "A")) &THEN
 THREE-D /*GUI*/
&ENDIF /*GUI*/
.


/* SET EXTERNAL LABELS */
setFrameLabels(frame linecharge:handle).
